home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / dpp / ostream.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  15KB  |  680 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 16 "ostream.d"
  17. #include <ctype.h> 
  18. #include <stdarg.h> 
  19. #include <string.h> 
  20.  
  21. #include "dpp.h" 
  22.  
  23.  
  24. #define CONVERT_SUPER 
  25.  
  26.  
  27. #define strne(a, b) strcmp(a, b) 
  28. #define streq(a, b) !strcmp(a, b) 
  29.  
  30. #define istart(x) (isalpha(x) || (x) == '_') 
  31. #define irest(x) (isalnum(x) || (x) == '_') 
  32.  
  33.  
  34. #ifdef unix 
  35. #define RMODE "r" 
  36. #define WMODE "w" 
  37. #else 
  38. #define RMODE "rt" 
  39. #define WMODE "wt" 
  40. #endif 
  41.  
  42. #define    CLASS    OutputStream_c
  43. #define    ivType    OutputStream_iv_t
  44.  
  45. #include "generics.h"
  46.  
  47. object    OutputStream_c;
  48.  
  49.  
  50. #line 51 "ostream.c"
  51. typedef struct  _OutputStream_iv_t  {
  52.     object iStream;
  53.     object iSFile;
  54.     object iTFile;
  55.     long iILine;
  56.     long iOLine;
  57.     long iRLine;
  58.     int iBraceLevel;
  59.     int iParenLevel;
  60.     int iBlbl;
  61.     char iPllc;
  62.     object iOutputList;
  63.     object iCVars;
  64.     object iIVars;
  65.     object iCName;
  66. }    OutputStream_iv_t;
  67.  
  68.  
  69. #line 62 "ostream.d"
  70. extern objrtn open_file(char *file,char *mode); 
  71.  
  72. extern int ErrorCode, LineDirectives; 
  73.  
  74.  
  75. cmeth objrtn OutputStream_cm_gNew(object self)
  76. { 
  77.     return gShouldNotImplement(self, "gNew"); 
  78. } 
  79.  
  80. cmeth objrtn OutputStream_cm_gNewWithStrStr(object self, char *file, char *ifile)
  81. { 
  82.     object obj = oSuper(OutputStream_c, gNew, self)(self); 
  83.     ivType *iv = ivPtr(obj); 
  84.     iv->iSFile = gNewWithStr(String, ifile); 
  85.     iv->iTFile = gNewWithStr(String, file); 
  86. #ifndef unix 
  87.     gToLower(iv->iSFile); 
  88.     gToLower(iv->iTFile); 
  89. #endif 
  90.     iv->iStream = file ? open_file(file, WMODE) : (object) NULL; 
  91.     iv->iOutputList = gNew(LinkList); 
  92.     iv->iRLine = iv->iOLine = 1L; 
  93.     iv->iPllc = ';'; 
  94.     return obj; 
  95. } 
  96.  
  97. static int sub(object tkn, object sym, object vars, char *exp) 
  98. { 
  99.     long line; 
  100.     if (!vars || !gFind(vars, sym)) 
  101.         return 0; 
  102.     line = gLineNumber(tkn); 
  103.     gAddBefore(tkn, gNewToken(Token, exp, line, 0)); 
  104.     gAddBefore(tkn, gNewToken(Token, "->", line, 0)); 
  105.     return 1; 
  106. } 
  107.  
  108. static int do_var_sub(ivType *iv) 
  109. { 
  110.     object tkn, sym; 
  111.     char *p, *pstr = NULL; 
  112.     int res = 0; 
  113.     char cvar[80]; 
  114.  
  115.     sprintf(cvar, "%s_cv", gStringValue(iv->iCName)); 
  116.     for (tkn = gFirst(iv->iOutputList) ; tkn ; tkn = gNext(tkn), pstr=p) { 
  117.         p = gStringValue(tkn); 
  118.         if (!istart(*p)) 
  119.             continue; 
  120.         if (!pstr || strne(pstr, "->") && strne(pstr, ".")) { 
  121.             sym = gToken(tkn); 
  122.             if (sub(tkn, sym, iv->iIVars, "iv")) 
  123.                 res = 1; 
  124.             else 
  125.                 sub(tkn, sym, iv->iCVars, cvar); 
  126.         } 
  127.     } 
  128.     return res; 
  129. } 
  130.  
  131. #ifdef CONVERT_SUPER 
  132.  
  133. #line 129 "ostream.d"
  134. static objrtn make_arg(object frst, object lst, int *simple) 
  135. { 
  136.     object arg; 
  137.     int pos; 
  138.     char *p1=NULL, *p2=NULL, *p3=NULL; 
  139.  
  140.     arg = gNew(LinkList); 
  141.     for (pos=0 ; frst != lst ; frst=gNext(frst)) { 
  142.         switch (++pos) { 
  143.             case 1: p1 = gStringValue(frst); break; 
  144.             case 2: p2 = gStringValue(frst); break; 
  145.             case 3: p3 = gStringValue(frst); break; 
  146.         } 
  147.         gAddLast(arg, gCopy(frst)); 
  148.     } 
  149.     *simple = pos == 1 && istart(*p1) || 
  150.         pos == 3 && streq(p1, "(") && istart(*p2) && 
  151.         streq(p3, ")"); 
  152.     return arg; 
  153. } 
  154.  
  155. #line 154 "ostream.d"
  156. #define OUTT(t) if (tkn) gAddBefore(tkn, t); else gAddLast(iv->iOutputList, t) 
  157.  
  158.  
  159.  
  160. static int convert_super(ivType *iv) 
  161. { 
  162.     object tkn; 
  163.     char *p, *pstr = NULL, *ppstr = NULL, *tp; 
  164.     int paren; 
  165.     object frst; 
  166.     object lst; 
  167.     object gen; 
  168.     object arg; 
  169.     object t; 
  170.     long line; 
  171.     int simple; 
  172.     char cname[80]; 
  173.  
  174.     for (tkn = gFirst(iv->iOutputList) ; tkn ; tkn=gNext(tkn), ppstr=pstr, pstr=p) { 
  175.         p = gStringValue(tkn); 
  176.         if (strne(p, "super")) 
  177.             continue; 
  178.         if (!pstr || strne(pstr, "(")) 
  179.             continue; 
  180.         if (!ppstr || !istart(*ppstr)) 
  181.             continue; 
  182.  
  183.         frst = gNext(tkn); 
  184.         if (!frst) 
  185.             continue; 
  186.  
  187.         line = gLineNumber(tkn); 
  188.  
  189.  
  190.         tp = gStringValue(frst); 
  191.         if (streq(tp, ",") || streq(tp, ")")) { 
  192.             t = gNewToken(Token, "self", line, 0); 
  193.             gAddBefore(frst, t); 
  194.             frst = t; 
  195.         } 
  196.  
  197.         paren = streq(gStringValue(frst), "("); 
  198.  
  199.  
  200.  
  201.         for (lst=frst ; 1 ; ) { 
  202.             lst = gNext(lst); 
  203.             if (!lst) 
  204.                 break; 
  205.             tp = gStringValue(lst); 
  206.             if (streq(tp, ")")) 
  207.                 paren--; 
  208.             else if (streq(tp, "(")) 
  209.                 paren++; 
  210.             if (streq(tp, ",") && !paren || paren < 0) 
  211.                 break; 
  212.         } 
  213.  
  214.  
  215.  
  216.         tkn = gPrevious(tkn); 
  217.         tkn = gPrevious(tkn); 
  218.  
  219.  
  220.  
  221.         gen = gCopy(tkn); 
  222.  
  223.  
  224.  
  225.         arg = make_arg(frst, lst, &simple); 
  226.  
  227.  
  228.  
  229.         for ( ; tkn != lst ; tkn = t) { 
  230.             t = gNext(tkn); 
  231.             gDispose(tkn); 
  232.         } 
  233.  
  234.  
  235.  
  236.         tkn = lst; 
  237.  
  238.  
  239.  
  240.         if (simple) { 
  241.             t = gNewToken(Token, "oSuper", line, 0); 
  242.             OUTT(t); 
  243.  
  244.             t = gNewToken(Token, "(", line, 0); 
  245.             OUTT(t); 
  246.  
  247.             sprintf(cname, "%s_c", gStringValue(iv->iCName)); 
  248.             t = gNewToken(Token, cname, line, 0); 
  249.             OUTT(t); 
  250.  
  251.             t = gNewToken(Token, ",", line, 1); 
  252.             OUTT(t); 
  253.  
  254.             OUTT(gen); 
  255.  
  256.             t = gNewToken(Token, ",", line, 1); 
  257.             OUTT(t); 
  258.  
  259.             for (t=gFirst(arg) ; t ; t=gNext(t)) 
  260.                 OUTT(gCopy(t)); 
  261.  
  262.             t = gNewToken(Token, ")", line, 0); 
  263.             OUTT(t); 
  264.  
  265.             t = gNewToken(Token, "(", line, 0); 
  266.             OUTT(t); 
  267.  
  268.             while (t = gFirst(arg)) { 
  269.                 gRemove(t); 
  270.                 OUTT(t); 
  271.             } 
  272.  
  273.             DISPOSE(arg); 
  274.  
  275.         } else { 
  276.             t = gNewToken(Token, "(", line, 0); 
  277.             OUTT(t); 
  278.  
  279.             t = gNewToken(Token, "_super_save_", line, 0); 
  280.             OUTT(t); 
  281.  
  282.             t = gNewToken(Token, "=", line, 0); 
  283.             OUTT(t); 
  284.  
  285.             t = gNewToken(Token, "(", line, 0); 
  286.             OUTT(t); 
  287.  
  288.             while (t = gFirst(arg)) { 
  289.                 gRemove(t); 
  290.                 OUTT(t); 
  291.             } 
  292.             DISPOSE(arg); 
  293.  
  294.             t = gNewToken(Token, ")", line, 0); 
  295.             OUTT(t); 
  296.  
  297.             t = gNewToken(Token, ",", line, 1); 
  298.             OUTT(t); 
  299.  
  300.             t = gNewToken(Token, "oSuper", line, 0); 
  301.             OUTT(t); 
  302.  
  303.             t = gNewToken(Token, "(", line, 0); 
  304.             OUTT(t); 
  305.  
  306.             sprintf(cname, "%s_c", gStringValue(iv->iCName)); 
  307.             t = gNewToken(Token, cname, line, 0); 
  308.             OUTT(t); 
  309.  
  310.             t = gNewToken(Token, ",", line, 1); 
  311.             OUTT(t); 
  312.  
  313.             OUTT(gen); 
  314.  
  315.             t = gNewToken(Token, ",", line, 0); 
  316.             OUTT(t); 
  317.  
  318.             t = gNewToken(Token, "_super_save_", line, 0); 
  319.             OUTT(t); 
  320.  
  321.             t = gNewToken(Token, ")", line, 0); 
  322.             OUTT(t); 
  323.  
  324.             t = gNewToken(Token, "(", line, 0); 
  325.             OUTT(t); 
  326.  
  327.             t = gNewToken(Token, "_super_save_", line, 0); 
  328.             OUTT(t); 
  329.  
  330.  
  331.  
  332.             paren = 1; 
  333.             while (paren && tkn) { 
  334.                 p = gStringValue(tkn); 
  335.                 if (streq(p, "(")) 
  336.                     paren++; 
  337.                 else if (streq(p, ")")) 
  338.                     paren--; 
  339.                 if (paren) 
  340.                     tkn = gNext(tkn); 
  341.             } 
  342.             if (!tkn) { 
  343.                 ErrorCode = 1; 
  344.                 vPrintf(stdoutStream, "Error on line %ld\n", line); 
  345.                 vPrintf(stdoutStream, "Expression containing super - bad syntax\n"); 
  346.             } 
  347.  
  348.             t = gNewToken(Token, ")", tkn ? gLineNumber(tkn) : line, 0); 
  349.             OUTT(t); 
  350.         } 
  351.  
  352.         return 1; 
  353.     } 
  354.     return 0; 
  355. } 
  356.  
  357. #endif 
  358.  
  359.  
  360.  
  361. imeth objrtn OutputStream_im_gFlush(object self)
  362. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  363.     int i, pp; 
  364.     object tkn; 
  365.     char *p=NULL, c=0; 
  366.  
  367.     if (!iv->iStream) 
  368.         return self; 
  369.  
  370.     if (iv->iIVars || iv->iCVars) 
  371.         do_var_sub(iv); 
  372.  
  373. #ifdef CONVERT_SUPER 
  374.         while (convert_super(iv)); 
  375. #endif 
  376.  
  377.         tkn = gFirst(iv->iOutputList); 
  378.     if (tkn && iv->iILine && iv->iOLine != iv->iILine) 
  379.         if (iv->iILine > iv->iOLine && iv->iILine < iv->iOLine+5) 
  380.         while (iv->iOLine != iv->iILine) { 
  381.         gPuts(iv->iStream, "\n"); 
  382.         iv->iOLine++; 
  383.         iv->iRLine++; 
  384.     } 
  385.     else 
  386.         gSLineDirective(self); 
  387.  
  388.     pp = tkn && *(p=gStringValue(tkn)) == '#'; 
  389.     if (tkn && !pp) 
  390.         for (i=iv->iBlbl-(*p == '}')+(*p != '{' && iv->iPllc != ';' && iv->iPllc != '{' && iv->iPllc != '}' && iv->iPllc != ':') ; i-- > 0 ; ) 
  391.         gPuts(iv->iStream, "\t"); 
  392.     for ( ; tkn ; tkn = gFirst(iv->iOutputList)) { 
  393.         p = gStringValue(tkn); 
  394.         if (irest(*p) && irest(c)) 
  395.             gPuts(iv->iStream, " "); 
  396.         gPuts(iv->iStream, p); 
  397.         if (gSpace(tkn)) { 
  398.             gPuts(iv->iStream, " "); 
  399.             c = 0; 
  400.         } else 
  401.             c = *p; 
  402.         iv->iPllc = *p; 
  403.         gDeepDisposeFirst(iv->iOutputList); 
  404.     } 
  405.     if (pp) 
  406.         iv->iPllc = ';'; 
  407.     gPuts(iv->iStream, "\n"); 
  408.     iv->iOLine++; 
  409.     iv->iRLine++; 
  410.     iv->iILine = 0L; 
  411.     iv->iBlbl = iv->iBraceLevel; 
  412.     return self; 
  413. } 
  414.  
  415.  
  416.  
  417. imeth objrtn OutputStream_im_gFlushm(object self)
  418. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  419.     int i; 
  420.     object tkn; 
  421.     char *p, c=0, *cname, ctype[80]; 
  422.  
  423.     if (!iv->iStream) 
  424.         return self; 
  425.  
  426. #define ADD(s, t) gAddAfter(tkn, gNewToken(Token, t, 0L, s)) 
  427.  
  428.         if ((iv->iIVars || iv->iCVars) && do_var_sub(iv)) { 
  429.         tkn = gFirst(iv->iOutputList); 
  430.         sprintf(ctype, "%s_iv_t", cname = gStringValue(iv->iCName)); 
  431.         ADD(0, ";"); 
  432.         ADD(0, ")"); 
  433.         ADD(0, "self"); 
  434.         ADD(1, ","); 
  435.         ADD(0, cname); 
  436.         ADD(0, "("); 
  437.         ADD(0, "GetIVs"); 
  438.         ADD(1, "="); 
  439.         ADD(1, "iv"); 
  440.         ADD(0, "*"); 
  441.         ADD(1, ctype); 
  442.     } 
  443.  
  444. #ifdef CONVERT_SUPER 
  445.         while (convert_super(iv)); 
  446. #endif 
  447.  
  448.         for (tkn=gFirst(iv->iOutputList) ; tkn ; tkn=gFirst(iv->iOutputList)) { 
  449.         iv->iILine = gLineNumber(tkn); 
  450.         if (iv->iILine && iv->iOLine != iv->iILine) { 
  451.             if (iv->iILine > iv->iOLine && iv->iILine < iv->iOLine+5) 
  452.                 while (iv->iOLine != iv->iILine) { 
  453.                 gPuts(iv->iStream, "\n"); 
  454.                 iv->iOLine++; 
  455.                 iv->iRLine++; 
  456.             } 
  457.             else 
  458.                 gSLineDirective(self); 
  459.             p = gStringValue(tkn); 
  460.             iv->iBlbl = iv->iBraceLevel; 
  461.             if (*p != '#') 
  462.                 for (i=iv->iBlbl-(*p == '}')+(*p != '{' && iv->iPllc != ';' && iv->iPllc != '{' && iv->iPllc != '}' && iv->iPllc != ':') ; i-- > 0 ; ) 
  463.                 gPuts(iv->iStream, "\t"); 
  464.         } else 
  465.             p = gStringValue(tkn); 
  466.  
  467.         if (irest(*p) && irest(c)) 
  468.             gPuts(iv->iStream, " "); 
  469.         gPuts(iv->iStream, p); 
  470.         iv->iPllc = c = *p; 
  471.         if (c == '(') 
  472.             iv->iParenLevel++; 
  473.         else if (c == ')') { 
  474.             if (iv->iParenLevel) 
  475.                 iv->iParenLevel--; 
  476.         } else if (c == '{') 
  477.             iv->iBraceLevel++; 
  478.         else if (c == '}') { 
  479.             if (iv->iBraceLevel) 
  480.                 iv->iBraceLevel--; 
  481.         } 
  482.         if (gSpace(tkn)) { 
  483.             gPuts(iv->iStream, " "); 
  484.             c = 0; 
  485.         } 
  486.         gDeepDisposeFirst(iv->iOutputList); 
  487.     } 
  488.     gPuts(iv->iStream, "\n"); 
  489.     iv->iOLine++; 
  490.     iv->iRLine++; 
  491.     iv->iILine = 0L; 
  492.     iv->iBlbl = iv->iBraceLevel; 
  493.     return self; 
  494. } 
  495.  
  496. imeth objrtn OutputStream_im_gDispose(object self)
  497. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  498.     gFlush(self); 
  499.     if (iv->iStream) 
  500.         gDispose(iv->iStream); 
  501.     gDispose(iv->iSFile); 
  502.     gDispose(iv->iTFile); 
  503.     gDeepDispose(iv->iOutputList); 
  504.     return oSuper(OutputStream_c, gDispose, self)(self); 
  505. } 
  506.  
  507. imeth objrtn OutputStream_im_gPut(object self, object tkn)
  508. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  509.     char c = *gStringValue(tkn); 
  510.     long ln = gLineNumber(tkn); 
  511.  
  512.     if (!iv->iStream) { 
  513.         DISPOSE(tkn); 
  514.         return self; 
  515.     } 
  516.  
  517.     if (!iv->iILine) 
  518.         iv->iILine = ln; 
  519.     else if (ln && iv->iILine != ln) { 
  520.         gFlush(self); 
  521.         iv->iILine = ln; 
  522.     } 
  523.  
  524.     gAddLast(iv->iOutputList, tkn); 
  525.     if (!ln && (!iv->iParenLevel && c == ';' || c == '}' || c == '{' || c == ':')) 
  526.         gFlush(self); 
  527.     if (c == '(') 
  528.         iv->iParenLevel++; 
  529.     else if (c == ')') { 
  530.         if (iv->iParenLevel) 
  531.             iv->iParenLevel--; 
  532.     } else if (c == '{') 
  533.         iv->iBraceLevel++; 
  534.     else if (c == '}') { 
  535.         if (iv->iBraceLevel) 
  536.             iv->iBraceLevel--; 
  537.     } 
  538.     return self; 
  539. } 
  540.  
  541.  
  542.  
  543. imeth objrtn OutputStream_im_gPutm(object self, object tkn)
  544. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  545.     if (iv->iStream) 
  546.         gAddLast(iv->iOutputList, tkn); 
  547.     else 
  548.         DISPOSE(tkn); 
  549.     return self; 
  550. } 
  551.  
  552. static int count_nl(char *s) 
  553. { 
  554.     int n = 0; 
  555.     for ( ; *s ; s++) 
  556.         if (*s == '\n') 
  557.         n++; 
  558.     return n; 
  559. } 
  560.  
  561. imeth int OutputStream_im_gPuts(object self, char *str)
  562. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  563.     iv->iOLine = -20L; 
  564.     iv->iRLine += count_nl(str); 
  565.     iv->iILine = 0L; 
  566.     return iv->iStream ? gPuts(iv->iStream, str) : strlen(str); 
  567. } 
  568.  
  569. ivmeth int OutputStream_ivm_vPrintf(object self, va_list _rest_)
  570. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);char * fmt = va_arg(_rest_, char *);
  571.     char buf[256]; 
  572.     MAKE_REST(fmt); 
  573.  
  574.     vsprintf(buf, fmt, _rest_); 
  575.     iv->iOLine = -20L; 
  576.     iv->iRLine += count_nl(buf); 
  577.     iv->iILine = 0L; 
  578.     return iv->iStream ? gPuts(iv->iStream, buf) : strlen(buf); 
  579. } 
  580.  
  581. #line 582 "ostream.c"
  582.  
  583. static    int    OutputStream_ifm_vPrintf(object self, ...)
  584. {
  585.     va_list    _rest_;
  586.     va_start(_rest_, self);
  587.     return OutputStream_ivm_vPrintf(self, _rest_);
  588. }
  589.  
  590.  
  591.  
  592. #line 579 "ostream.d"
  593. imeth objrtn OutputStream_im_gSetOSVars(object self, object cname, object cvs, object ivs)
  594. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  595.     iv->iCName = cname; 
  596.     iv->iCVars = gSize(cvs) ? cvs : (object) NULL; 
  597.     iv->iIVars = gSize(ivs) ? ivs : (object) NULL; 
  598.     return self; 
  599. } 
  600.  
  601. imeth objrtn OutputStream_im_gTLineDirective(object self)
  602. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  603.     if (iv->iStream && LineDirectives) { 
  604.         iv->iRLine += 2; 
  605.         iv->iOLine = -20L; 
  606.         vPrintf(iv->iStream, "\n#line %ld \"%s\"\n", iv->iRLine, gStringValue(iv->iTFile)); 
  607.     } 
  608.     return self; 
  609. } 
  610.  
  611. imeth objrtn OutputStream_im_gSLineDirective(object self)
  612. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  613.     if (iv->iStream) { 
  614.         if (LineDirectives && iv->iILine) { 
  615.             vPrintf(iv->iStream, "\n#line %ld \"%s\"\n", iv->iILine, gStringValue(iv->iSFile)); 
  616.             iv->iRLine += 2; 
  617.             iv->iOLine = iv->iILine; 
  618.         } else { 
  619.             gPuts(iv->iStream, "\n"); 
  620.             iv->iRLine++; 
  621.             iv->iOLine = iv->iILine ? iv->iILine : -20L; 
  622.         } 
  623.     } 
  624.     return self; 
  625. } 
  626.  
  627. imeth objrtn OutputStream_im_gForceLineDirective(object self)
  628. { OutputStream_iv_t *iv = GetIVs(OutputStream, self);
  629.     iv->iOLine = -20L; 
  630.     return self; 
  631. } 
  632.  
  633.  
  634. #line 635 "ostream.c"
  635.  
  636. objrtn    OutputStream_initialize(void)
  637. {
  638.     static  CRITICALSECTION  cs;
  639.     static  int volatile once = 0;
  640.  
  641.     ENTERCRITICALSECTION(_CI_CS_);
  642.     if (!once) {
  643.         INITIALIZECRITICALSECTION(cs);
  644.         once = 1;
  645.     }
  646.     LEAVECRITICALSECTION(_CI_CS_);
  647.  
  648.     ENTERCRITICALSECTION(cs);
  649.  
  650.     if (OutputStream_c) {
  651.         LEAVECRITICALSECTION(cs);
  652.         return OutputStream_c;
  653.     }
  654.     INHIBIT_THREADER;
  655.     OutputStream_c = gNewClass(Class, "OutputStream", sizeof(OutputStream_iv_t), 0, END);
  656.     cMethodFor(OutputStream, gNew, OutputStream_cm_gNew);
  657.     cMethodFor(OutputStream, gNewWithStrStr, OutputStream_cm_gNewWithStrStr);
  658.     iMethodFor(OutputStream, gFlush, OutputStream_im_gFlush);
  659.     iMethodFor(OutputStream, gPuts, OutputStream_im_gPuts);
  660.     iMethodFor(OutputStream, gPutm, OutputStream_im_gPutm);
  661.     iMethodFor(OutputStream, gForceLineDirective, OutputStream_im_gForceLineDirective);
  662.     iMethodFor(OutputStream, gDispose, OutputStream_im_gDispose);
  663.     iMethodFor(OutputStream, gPut, OutputStream_im_gPut);
  664.     iMethodFor(OutputStream, gSLineDirective, OutputStream_im_gSLineDirective);
  665.     iMethodFor(OutputStream, gFlushm, OutputStream_im_gFlushm);
  666.     ivMethodFor(OutputStream, vPrintf, OutputStream_ivm_vPrintf, OutputStream_ifm_vPrintf);
  667.     iMethodFor(OutputStream, gSetOSVars, OutputStream_im_gSetOSVars);
  668.     iMethodFor(OutputStream, gTLineDirective, OutputStream_im_gTLineDirective);
  669.     iMethodFor(OutputStream, gDeepDispose, OutputStream_im_gDispose);
  670.  
  671.     ENABLE_THREADER;
  672.  
  673.     LEAVECRITICALSECTION(cs);
  674.  
  675.     return OutputStream_c;
  676. }
  677.  
  678.  
  679.  
  680.